00100	C  TO DISPLAY NUMBERS WITH DPYTXT
00200	
00300	C *****  CALL DPYTXT(X,Y,NUMDPY(N),1) **** N IS THE NUMB. TO DISPLAY
00400	
00500		FUNCTION NUMDPY(N)
00600		M=N/10000
00700		N=N-M*10000
00800		L10000=M*536870912
00900		M=N/1000
01000		N=N-M*1000
01100	1	L1000=M*4194304
01200		M=N/100
01300		N=N-M*100
01400	2	L100=M*32768
01500		M=N/10
01600		N=N-M*10
01700	3	L10=M*256
01800		I=L10+L100+L1000+L10000+N*2
01900	5	NUMDPY='00000'+I
02000	6	END